#!/usr/bin/perl

#Make sure $i in [1,10].

foreach my $i ( 1 .. 10 )
{
	print "i=". $i . "\n";
}

#Output
#i=1
#i=2
#i=3
#i=4
#i=5
#i=6
#i=7
#i=8
#i=9
#i=10